home *** CD-ROM | disk | FTP | other *** search
- 5 rem the following rem statements are for the checksum program
- 6 rem to use the checksum program simply erase all rems (except lines 5 & 6)
- 7 rem and type run
- 10 data11507,12573,12522,11001
- 20 rem a=49152:b=84:c=a+b:fori=1to4:d=0:readx:forj=atoc:d=d+peek(j):next
- 30 rem ifd<>xthenprinttab(19)"error in block #"i:goto50
- 40 rem print"block #"i"is correct"
- 50 rem a=c+1:c=a+b:next:end
- 60 fori=1to4:reada:next:readlo,hi:fori=lotohi:readx:pokei,x:next:end
- 5000 data 49152, 49528
- 5010 data 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
- 5020 data 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
- 5030 data 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204
- 5040 data 116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200
- 5050 data 204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
- 5060 data 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104
- 5070 data 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116
- 5080 data 193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
- 5090 data 169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
- 5100 data 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
- 5110 data 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
- 5120 data 177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208
- 5130 data 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
- 5140 data 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92
- 5150 data 104,145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
- 5160 data 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
- 5170 data 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
- 5180 data 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
- 5190 data 24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
- 5200 data 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
- 5210 data 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
- 5220 data 5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0
- 5230 data 4,1,1
-